home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm24 / 00806_SU-co bt lec.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  1.5 KB  |  47 lines
  1. on MouseClick
  2.   global gNumSpr, g1erSprLoc, gBoutons, gEtudAct, gEtatEtud, gSurvolPrec, gPartie, gMessDef1, gScopeCo0, gScopeCo1, gTraduit
  3.   if word 1 of the name of cast the castNum of sprite gNumSpr <> "BTPVID" then
  4.     curseur(6)
  5.     if word 1 of the name of cast the castNum of sprite gNumSpr = "BTPOEI" then
  6.       set the visible of sprite (g1erSprLoc + 12) to 0
  7.       set the visible of sprite (g1erSprLoc + 13) to 0
  8.       set the visible of sprite (g1erSprLoc + 14) to 1
  9.       set gEtatEtud to gPartie
  10.       gBoutons(habille, gNumSpr, "BTPOEF 1")
  11.       set gMessDef1 to getAt(gTraduit, 38)
  12.       gScopeCo0(preLoad, 2000, 0)
  13.       gScopeCo1(preLoad, 2000, 0)
  14.     else
  15.       set the visible of sprite (g1erSprLoc + 14) to 0
  16.       set the visible of sprite (g1erSprLoc + 12) to 1
  17.       set the visible of sprite (g1erSprLoc + 13) to 1
  18.       set gEtatEtud to " "
  19.       gBoutons(habille, gNumSpr, "BTPOEI 1")
  20.       set gMessDef1 to getAt(gTraduit, 54)
  21.     end if
  22.     updateStage()
  23.     curseur(-1)
  24.   else
  25.     gBoutons(relache, gNumSpr)
  26.     curseur(7)
  27.   end if
  28. end
  29.  
  30. on mouseDown
  31.   global gNumSpr, g1erSprLoc, gBoutons
  32.   curseur(1)
  33.   if the visible of sprite (g1erSprLoc + 11) = 1 then
  34.     set gNumSpr to g1erSprLoc + 11
  35.     gBoutons(appuie, gNumSpr)
  36.   end if
  37. end
  38.  
  39. on mouseUp
  40.   global gNumSpr, g1erSprLoc, gBoutons, gEtudAct, gEtatEtud, gSurvolPrec
  41.   if (the visible of sprite (g1erSprLoc + 11) = 1) and (gNumSpr = (g1erSprLoc + 11)) then
  42.     MouseClick()
  43.   else
  44.     pass()
  45.   end if
  46. end
  47.